home *** CD-ROM | disk | FTP | other *** search
/ Computer Inter@ctive 17 / Computer Interactive cdrom 17 - gen 99.iso / ZDNETIT / CONTENT / WEBDATA.ZIP / upgrade.pl < prev    next >
Encoding:
Text File  |  1998-08-16  |  1.3 KB  |  57 lines
  1. #UTILITY FOR UPGRADING FROM WEBTEACHER'S WEBDATA 2.26 TO 2.27a
  2. #ALWAYS BACKUP YOUR CGI SCRIPTS BEFORE UPGRADING.
  3. #TO USE, UPLOAD THE NEW WEBDATA.CGI AND UPGRADE.PL SCRIPTS
  4. #TO YOUR EXISTING WEBDATA DIRECTORY.  THEN TELNET TO THAT DIRECTORY
  5. #AND TYPE:
  6. #    perl upgrade.pl [scriptname]
  7. #FOR EXAMPLE, IF MY CGI SCRIPT WAS NAMED "webdata_cars.cgi" THEN I
  8. #WOULD TYPE:
  9. #    perl upgrade.pl webdata_cars.cgi
  10.  
  11.  
  12. $file=$ARGV[0];
  13. open (OLDFILE,"<$file");
  14. @lines=<OLDFILE>;
  15. close OLDFILE;
  16.  
  17. if ($lines[1]!~/2.2[6|7]/) {
  18.     print "This upgrade program is only tested for version 2.26.
  19. To upgrade from an earlier version:
  20. 1.  Backup all of your *.log files.
  21. 2.  Run the new installer in the same directory with the same name.
  22. 3.  Restore the *.log files.
  23.     ";
  24.     exit;
  25. };
  26.  
  27. open (BACKUP,">$file\.bak");
  28. print BACKUP (@lines);
  29. close BACKUP;
  30.  
  31. open (NEWFILE,"<webdata.cgi");
  32. @newlines=<NEWFILE>;
  33. close NEWFILE;
  34.  
  35. #set 1st 17 lines into @userprefs array
  36.  
  37. for ($i=0;$i<17;$i++) {
  38.     $newlines[$i]=$lines[$i];
  39. };
  40. $newlines[1]="#version 2.27c\n";
  41.  
  42. foreach (@lines) {
  43.     if (/FLAG[1-5]/) {push(@flags,$_)};
  44. };
  45.  
  46. $count=0;
  47. foreach (@newlines) {
  48.     if (/FLAG[1-5]/) {
  49.         $_=$flags[$count];
  50.         $count++;
  51.     };
  52. };
  53.  
  54. open (MAKEFILE,">$file");
  55. print MAKEFILE (@newlines);
  56. close MAKEFILE;
  57.